declare 
    m,n : integer;
    b   : boolean;
begin
    <<again>> m := 10000;
    for i in reverse 1 .. (m*3) loop
       b := true;  n := i;
       while b loop
           if n=(2*(n/2)) then
               n := (n/2); exit when n<i;
           else
               n := ((3*n)+1);
           end if;
           b := n>1 ;
       end loop;
    end loop;
    goto again;
end;